home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Python 1.1 / Mac / chdir.c next >
Encoding:
C/C++ Source or Header  |  1994-08-19  |  505 b   |  27 lines  |  [TEXT/KAHL]
  1. /* Chdir for the Macintosh.
  2.    Public domain by Guido van Rossum, CWI, Amsterdam (July 1987).
  3.    Pathnames must be Macintosh paths, with colons as separators. */
  4.  
  5. #include "macdefs.h"
  6.  
  7. /* Change current directory. */
  8.  
  9. int
  10. chdir(path)
  11.     char *path;
  12. {
  13.     WDPBRec pb;
  14.     char name[MAXPATH];
  15.     
  16.     strncpy(name, path, sizeof name);
  17.     name[MAXPATH-1]= EOS;
  18.     pb.ioNamePtr= (StringPtr) c2pstr(name);
  19.     pb.ioVRefNum= 0;
  20.     pb.ioWDDirID= 0;
  21.     if (PBHSetVol(&pb, FALSE) != noErr) {
  22.         errno= ENOENT;
  23.         return -1;
  24.     }
  25.     return 0;
  26. }
  27.